home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / djgpp / src / binutils.252 / bfd / doc / proto.str < prev   
Encoding:
Text File  |  1994-09-02  |  2.1 KB  |  128 lines
  1.  
  2. : SYNOPSIS
  3.     skip_past_newline
  4.     get_stuff_in_command    
  5.     paramstuff
  6.     indent
  7.     maybecatstr
  8. ;
  9.  
  10. : ignore
  11.     skip_past_newline 
  12.     get_stuff_in_command
  13.     outputdots
  14.     maybecatstr
  15.     ;
  16.  
  17. : CODE_FRAGMENT
  18.     ignore ;
  19.  
  20. : external
  21.     0 internalmode ignore ;
  22.  
  23. : internal 
  24.     1 internalmode ignore ;
  25.  
  26. - input stack { a b } output b if internal, a if external
  27. : ifinternal
  28.     "" swap 1 internalmode maybecatstr
  29.     swap
  30.     "" swap 0 internalmode maybecatstr
  31.     catstr
  32.     ;
  33.  
  34. - SENUM    enum-type-name
  35. - ENUM     enum-name
  36. - ENUMX    addl-enum-name
  37. - ENUMDOC  doc for preceding enums
  38. - ENDSENUM max-enum-name
  39.  
  40. : make_enum_header
  41.     dup
  42.     "enum " swap catstr
  43.     " {\n" catstr
  44.     swap "  _dummy_first_" swap catstr catstr
  45.     ",\n" catstr
  46.     ;
  47. : make_string_table_header
  48.     dup
  49.     "#ifdef _BFD_MAKE_TABLE_" swap catstr swap
  50.     "\n\nstatic const char *const " swap catstr catstr
  51.     "_names[] = { \"@@uninitialized@@\",\n" catstr
  52.     ;
  53. : SENUM
  54.     skip_past_newline
  55.     copy_past_newline
  56.     remchar
  57.     dup
  58.     make_enum_header
  59.     swap
  60.     make_string_table_header
  61.     ifinternal
  62.     catstr
  63.     get_stuff_in_command catstr
  64.     translatecomments ;
  65. : ENDSENUM
  66.     skip_past_newline
  67.     copy_past_newline strip_trailing_newlines
  68.     dup
  69.     "  " swap catstr " };\n" catstr    swap
  70.     " \"@@overflow: " swap catstr "@@\",\n};\n#endif\n\n" catstr
  71.     ifinternal
  72.     catstr
  73.     ;
  74. : make_enumerator
  75.     "  " swap catstr
  76.     ",\n" catstr
  77.     ;
  78. : make_enumerator_string
  79.     "  \"" swap catstr
  80.     "\",\n" catstr
  81.     ;
  82. : ENUM
  83.     skip_past_newline
  84.     copy_past_newline
  85.     remchar
  86.     dup
  87.     make_enumerator
  88.     swap
  89.     make_enumerator_string
  90.     ifinternal
  91.     ;
  92. : ENUMX ENUM catstr ;
  93. : ENUMEQ
  94.     skip_past_newline
  95.     "#define "
  96.     copy_past_newline remchar
  97.     catstr
  98.     " "
  99.     catstr
  100.     copy_past_newline
  101.     catstr
  102.     "" swap 0 internalmode maybecatstr
  103.     ;
  104. : ENUMEQX ENUMEQ catstr ;
  105. : ENUMDOC
  106.     skip_past_newline
  107.     get_stuff_in_command
  108.     strip_trailing_newlines
  109.     "\n{* " swap catstr " *}\n" catstr
  110.     translatecomments
  111.     - discard it if we're doing internal mode
  112.     "" swap 0 internalmode maybecatstr
  113.     swap
  114.     catstr catstr
  115.     ;
  116. : ENDDD external ;
  117. : SECTION ignore ;
  118. : SUBSECTION ignore ;
  119. : SUBSUBSECTION ignore ;
  120. : INTERNAL_DEFINITION internal ;
  121. : DESCRIPTION ignore ;
  122. : FUNCTION external ;
  123. : RETURNS ignore ;
  124. : TYPEDEF external ;
  125. : INTERNAL_FUNCTION internal ;
  126. : INTERNAL internal ;
  127. : INODE ignore ;
  128.